5 POKE53281,15:POKE53280,0 6 PRINTCHR$(142)"[147][144] **SPRITE EDITOR V1**":PRINT" BY" 7 PRINT" TOMAR" 8 PRINT" LOADSTAR IS NOT PUBLIC DOMAIN." 9 PRINT" PLEASE RESPECT THE AUTHOR'S RIGHTS." 10 PRINT" HIT ANY KEY TO START....." 12 POKE198,0:WAIT198,1:POKE198,0 15 DIMSP(63):SC=55336:SC%=0:CX=0:SP=1064 20 REM SPRITE EDITOR 30 REM 31 PRINT"[147]COMMAND: L[146]OAD S[146]AVE EDIT H[146]ELP Q[146]UIT " 32 FORI=1043TO1046:POKE54272+I,0:NEXTI 35 PRINT" SPRITE EDITOR DATA [146]":U$="[145]" 42 FORI=1TO21 43 I$=STR$(I):L=LEN(I$)-1:I$=MID$(I$,2,L) 44 PRINTU$"[186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][144]"I$:PRINTTAB(28)"[145] 0,0,0" 45 U$="":NEXTI 46 PRINT"";:PRINTTAB(25)"[207][163][163][208]" 47 PRINTTAB(25)"[180] [167]" 48 PRINTTAB(25)"[204][164][164][186]" 49 PRINT"[144]123456789111111111122222 ROW 7 COL 10 [146]" 50 PRINT"[144] 012345678901234 [145]" 60 FORI=1043TO1046:POKE54272+I,0:NEXTI 100 GOSUB3000 110 REM 130 GOSUB3050:C%=(X-24)/8+1 140 R%=(Y-44)/8-1 150 D=1064+(R%*40)+C%-1 160 P=55336+(R%*40)+C%-1 170 IFPEEK(D)=160THENPOKEP,1:POKED,122:GOTO180 175 POKEP,3:POKED,160:SW=0 180 IFC%<9THENXX=2^((8-C%)*1):T=1+(R%-1)*3:GOTO183 181 IFC%<17THENXX=2^((16-C%)*1):T=2+(R%-1)*3:GOTO183 182 XX=2^((24-C%)*1):T=3+(R%-1)*3 183 IFPEEK(D)=122THENXX=XX*(-1) 184 SP(T)=SP(T)+XX:T1=SP((R%*3)-2):T2=SP((R%*3)-1):T3=SP(R%*3) 185 D$="":FORK=1TOR%:D$=D$+"":NEXTK 186 T1$=STR$(T1):T2$=STR$(T2):T3$=STR$(T3) 187 PRINTD$" "; 189 PRINT"[145]"MID$(T1$,2,LEN(T1$))","; 190 PRINTMID$(T2$,2,LEN(T2$))","; 191 PRINTMID$(T3$,2,LEN(T3$)) 192 IFC%<9THENPOKE896+(R%-1)*3+(C%-1)/8,T1:GOTO110 193 IFC%<17THENPOKE896+(R%-1)*3+(C%-1)/8,T2:GOTO110 194 POKE896+(R%-1)*3+(C%-1)/8,T3 195 GOTO110 3000 REM 3010 REM ARROW POINTER 3020 REM 3030 V=53248:POKEV+21,12:POKE2042,13:X=99:Y=108:POKE2043,14:POKEV+41,0 3031 POKEV+42,0:FORN=0TO62:READQ:POKE832+N,Q:NEXT:POKEV+4,99:POKEV+5,108 3040 FORN=0TO62:POKE896+N,0:NEXT:POKEV+6,229:POKEV+7,76:RETURN 3041 DATA 0,0,0,0,0,0,0,0,0,1,0,0,7,0,0,14,0,0,28,0,0,120,0,0 3042 DATA 224,0,0,255,255,255,96,0,0,56,0,0,28,0,0,14,0,0,7,0,0,1,0,0 3043 DATA 0,0,0,0,0,0,0,0,0 3044 DATA 0,0,0,0,0,0,0,0,0 3045 DATA 0,0,0,0,0,0,0,0,0 3046 DATA 0,0,0,0,0,0,0,0,0 3047 DATA 0,0,0,0,0,0,0,0,0 3050 REM 3060 REM MOVING FINGER 3065 GETC$:PK=PEEK(56320) 3070 IFPEEK(197)=1ORPK=111THENRETURN 3071 IFPEEK(197)=6THENPOKEV+21,0:POKEV+4,99:POKEV+5,108:RUN15 3072 IFPEEK(197)=3ORC$="Q"THENPOKEV+21,0:GOTO6000 3074 IFC$="L"ORPEEK(197)=4THENGOSUB4000 3075 IFC$="S"ORPEEK(197)=5THENGOSUB5010 3076 IFC$="H"THENGOSUB7000 3077 IFPK=126ORPK=119ORPK=125ORPK=123THEN3080 3078 IFC$<>""ANDC$<>""ANDC$<>"[145]"ANDC$<>"[157]"THEN3065 3080 IFC$="[145]"ORPK=126THENIFY%>1THENY=Y-8 3090 IFC$=""ORPK=125THENIFY%<21THENY=Y+8 3094 IFC$="[157]"ORPK=123THENIFX%>1THENX=X-8 3095 IFC$=""ORPK=119THENIFX%<24THENX=X+8 3100 POKEV+4,X:POKEV+5,Y 3105 X%=(X-24)/8+1 3110 Y%=(Y-44)/8-1 3120 PRINT""TAB(25)"[145]ROW"Y%"[157] " 3125 PRINTTAB(32)"[145]COL"X%"[157] [146]" 3130 GOTO3065 3172 FORI=1043TO1046:POKE54272+I,0:NEXTI 4000 PRINT" L[146]OAD FILENAME-> " 4010 PRINT"";:INPUTF$ 4015 PRINT" " 4020 PRINT" L[146]OADING "F$"" 4034 OPEN15,8,15 4035 PRINT#15,"I0":INPUT#15,EN$,EM$,ET$,ES$ 4036 IFEN$="00"GOTO4040 4037 PRINT"DISK ERROR ":CLOSE15:RETURN 4040 SF$=F$:F$=F$+",S,R":OPEN4,8,4,F$ 4041 INPUT#15,EN$,EM$,ET$,ES$ 4042 IFEN$="00"GOTO4049 4043 PRINT" "SF$" NOT FOUND RETURN[146] TO CONT" 4044 GETYN$:IFYN$=""THEN4044 4045 GOTO4092 4049 X1=SP+39:X2=X1+23:Y1=SC+39:Y2=Y1+23:CT=0:SC=0:I%=0:J%=1:CD=0 4050 FORW=1TO63:INPUT#4,SP(W):C=SP(W) 4060 FORK=7TO0STEP-1 4061 X1=X1+1:Y1=Y1+1:IFX1>X2THENX1=X1+16:X2=X1+23:Y1=Y1+16:Y2=Y2+23:GOTO4090 4070 X%=C-2^K:IFX%>-1THENPOKEX1,160:POKEY1,3:C=C-2^K:GOTO4085 4080 POKEX1,122:POKEY1,1:CT=CT+1 4085 POKE1044,160:R%=RND(0)*13+1:POKE55316,R% 4086 PRINT""CT"": 4087 I%=I%+1:PRINT""TAB(25)"[145]ROW"J%"[157] " 4088 PRINTTAB(32)"[145]COL"I%"[157] [146]" 4089 IFSC=3THENI%=0:J%=J%+1 4090 IFSC=3THENSC=0:PRINT""TAB(32)"[145]COL 24" " 4091 [130]K:[151]896[170]CD,SP(W):CD[178]CD[170]1 4092 SC[178]SC[170]1:[130]W 4093 [153]"COMMAND: LWAITOAD SWAITAVE EDIT HWAITELP QWAITUIT " 4094 [129]I[178]1043[164]1046:[151]54272[170]I,0:[130]I 4095 [151]198,0:C$[178]"":[160]4:[160]15 4096 [153]"":T1$[178][196](SP(1)):T2$[178][196](SP(2)):T3$[178][196](SP(3)) 4097 [153][163]29)[202](T1$,2,[195](T1$));:[153]","[202](T2$,2,[195](T2$)); 4098 [153]","[202](T3$,2,[195](T3$)) 5000 PT[178]1:[129]I[178]4[164]63[169]3 5001 D$[178]"":[129]K[178]1[164]PT:D$[178]D$[170]"":[130]K:[153]"";:T1$[178][196](SP(I)) 5003 OV$[178]"":[153]OV$D$[202](T1$,2,[195](T1$))","; 5004 T2$[178][196](SP(I[170]1)):[153][202](T2$,2,[195](T2$))","; 5005 T3$[178][196](SP(I[170]2)):[153][202](T3$,2,[195](T3$)) 5009 PT[178]PT[170]1:[130]I:[142] 5010 [153]" SWAITAVE FILENAME-> " 5011 [153]"";:[133]F$ 5015 [153]" " 5020 [153]"ON SWAITAVING "F$"ON" 5034 [159]15,8,15 5035 [152]15,"IO":[132]15,EN$,EM$,ET$,ES$ 5036 [139]EN$[178]"00"[137]5040 5037 [153]"DISK ERROR ":[142] 5040 SF$[178]F$:F$[178]F$[170]",S,W":[159]4,8,4,F$ 5041 [132]15,EN$,EM$,ET$,ES$ 5042 [139]EN$[178]"00"[137]5046 5043 [153]" ":[153]""EM$" -RETURN FOR MENU" 5044 [161]YN$:[139]YN$[178]""[167]5044 5045 [139]YN$[179][177]"Y"[167]5070 5046 [153]"ON SWAITAVING "SF$" ON" 5047 [160]4:F$[178]"@:"[170]F$[170]",S,W":[159]4,8,4,F$ 5050 [129]W[178]1[164]63:[152]4,SP(W);[199](13) 5051 [153]""W"" 5052 [151]1044,160:R%[178][187](0)[172]13[170]1:[151]55316,R% 5055 [130]W 5060 [129]I[178]1043[164]1046:[151]54272[170]I,0:[130]I 5070 [153]"COMMAND: LWAITOAD SWAITAVE EDIT HWAITELP QWAITUIT ":[151]198,0 5075 [160]4:[160]15:[142] 6000 [143] 6020 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN" 6030 [151]631,13:[151]632,13:[151]198,2: [128] 7000 [143] HELP 7010 [153]" HELP-SCROLL W/ CRSRWAIT KEYS (H TO RETURN)" 7020 [161]F$:[139]F$[178]""[167]7020 7030 [139]F$[178]"H"[167]7500 7040 [139]F$[179][177]""[167]7020 7050 [153]" FUNCTION KEY (F1) LOAD A FILE " 7060 [161]F$:[139]F$[178]""[167]7060 7070 [139]F$[178]"H"[167]7500 7075 [139]F$[178]""[167]7010 7080 [139]F$[179][177]""[167]7060 7090 [153]" FUNCTION KEY (F3) SAVE A FILE " 7100 [161]F$:[139]F$[178]""[167]7100 7110 [139]F$[178]"H"[167]7500 7115 [139]F$[178]""[167]7050 7120 [139]F$[179][177]""[167]7100 7130 [153]" FUNCTION KEY (F5) CLEAR SPRITE " 7140 [161]F$:[139]F$[178]""[167]7140 7150 [139]F$[178]"H"[167]7500 7165 [139]F$[178]""[167]7090 7170 [139]F$[179][177]""[167]7140 7180 [153]" FUNCTION KEY (F7) TERMINATE " 7190 [161]F$:[139]F$[178]""[167]7190 7200 [139]F$[178]"H"[167]7500 7210 [139]F$[178]""[167]7130 7215 [139]F$[179][177]""[167]7190 7216 [153]" HIT RETURNWAIT TO FILL/UNFILL BOX " 7220 [161]F$:[139]F$[178]""[167]7220 7230 [139]F$[178]"H"[167]7500 7240 [139]F$[178]""[167]7180 7245 [139]F$[179][177]""[167]7220 7250 [153]" CRSRWAIT KEYS/JOYSTICK POSTION ARROW " 7260 [161]F$:[139]F$[178]""[167]7260 7270 [139]F$[178]"H"[167]7500 7280 [139]F$[178]""[167]7216 7285 [137]7260 7500 [153]"COMMAND: LWAITOAD SWAITAVE EDIT HWAITELP QWAITUIT " 7510 [142]